perl -MOnTheBeachDB -e'$s = OnTheBeachDB->connect("dbi:mysql:onthebeach", "root", "lairdo"); 
print $s->resultset('Message')->get_number_of_children(17)'
